home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / setgui1 / setgui1.txt < prev   
Encoding:
Text File  |  1995-01-15  |  4.7 KB  |  95 lines
  1. SETGUI1 - SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION 
  2.            GRAPHICAL USER INTERFACE LIBRARY, VERSION 1.00
  3.  
  4. SETGUI1 IS A SET OF MICROSOFT(tm) FORTRAN CALLABLE SUBROUTINES AND FUNCTIONS
  5. SPECIFICALLY DESIGNED TO ALLOW A GRAPHICAL USER INTERFACE TO BE CREATED FOR
  6. ANY FORTRAN CODE RUNNING ON A IBM-PC(tm) COMPATIBLE PLATFORM.
  7.                                       
  8.                              COPYRIGHT (c) 1994 
  9.                SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION
  10.                              ALL RIGHTS RESERVED
  11.  
  12. THIS SOFTWARE MAY ONLY BE USED OR COPIED WITH THE EXPRESS WRITTEN PERMISSION 
  13. OF SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION. UNAUTHORIZED DUPLICATION 
  14. OR DISTRIBUTION IS STRICTLY PROHIBITED BY LAW. PLEASE BE ADVISED THAT NO 
  15. WARRANTY IS MADE BY SAGUARO ENGINEERING AND TECHNOLOGY AS TO THE ACCURACY, 
  16. COMPLETENESS, RELIABILITY, USABILITY, OR SUITABILITY OF THESE LIBRARIES
  17. OR THE ASSOCIATED DOCUMENTATION. NO RESPONSIBILITY IS ASSUMED BY SAGUARO 
  18. ENGINEERING AND TECHNOLOGY CORPORATION FOR INCORRECT RESULTS OR DAMAGES 
  19. RESULTING FROM THE USE OF THESE LIBRARIES.                    
  20.  
  21.  
  22. THE FOLLOWING SUBROUTINES AND FUNCTIONS ARE INCLUDED IN SETGUI1.  PLEASE NOTE
  23. THAT SOME ERRORS MAY OCCUR DURING LINKING THIS LIBRARY TO YOUR CODE IF THE
  24. /FPi SWITCH IS NOT USED.  THESE ERRORS ARE NOT FATAL AND CAN BE IGNORED.
  25. THIS LIBRARY HAS ONLY BEEN TESTED USING MICROSOFT(tm) FORTRAN 5.1 ON A
  26. 386 AND LATER PROCESSOR BASED MACHINE, BUT MAY WORK USING OTHER COMPILERS
  27. AND/OR PLATFORMS. 
  28.  
  29.  
  30.  
  31. SUBROUTINE DRAWBARGRID(X0,Y0,XLEN,YLEN,NUMBARS,NUMYDIVS,YINC,KOLOR)
  32. ***********************************************************************      
  33. *** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
  34. ***********************************************************************
  35.  X0 = X POSITION OF LEFT SIDE OF GRID  (-99 = AUTOCENTER)
  36.  Y0 = Y POSITION OF BOTTOM OF GRID   (-99 = AUTOCENTER)
  37.  XLEN = LENGTH OF X AXIS IN PIXELS (DEFAULT = 100)
  38.  YLEN = LENGTH OF Y AXIS IN PIXELS (DEFAULT = 100)
  39.  NUMBARS = NUMBER OF BARS ON X-AXIS (DEFAULT = 10)
  40.  NUMYDIVS = NUMBER OF DIVISIONS ON Y-AXIS (THIS VALUE OR YINC CAN BE ENTERED, 
  41.     THIS VALUE IS DEFAULTED IF YINC<=0) (DEFAULT = 10)
  42.  YINC = NUMBER OF PIXELS ON Y-AXIS PER DIVISION
  43.  KOLOR = DOS VGA COLOR (DEFAULT = 15 [BRIGHT WHITE])
  44. ***********************************************************************
  45.  
  46.  
  47. SUBROUTINE DRAWBAR(BARNUMBER,YMAXBAR,YMINBAR,YMIN,YMAX,X0,Y0,XLEN,YLEN,
  48.    NUMBARS,BARPERCENT,KOLOR,HATCHPATTERN)
  49. ***********************************************************************      
  50. *** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
  51. ***********************************************************************
  52.  BARNUMBER = BAR NUMBER TO PLOT (DEFAULT = 1)
  53.  YMAXBAR = Y-VALUE OF TOP OF BAR 
  54.  YMINBAR = Y-VALUE OF BOTTOM OF BAR 
  55.  YMIN = Y-VALUE OF BOTTOM OF PLOT (DEFAULT = 0.)
  56.  YMAX = Y-VALUE OF TOP OF PLOT (DEFAULT = 100.)
  57.  X0 = X POSITION OF LEFT SIDE OF GRID  (-99 = AUTOCENTER)
  58.  Y0 = Y POSITION OF BOTTOM OF GRID   (-99 = AUTOCENTER)
  59.  XLEN = LENGTH OF X AXIS IN PIXELS (DEFAULT = 100)
  60.  YLEN = LENGTH OF Y AXIS IN PIXELS (DEFAULT = 100)
  61.  NUMBARS = NUMBER OF BARS ON X-AXIS (DEFAULT = 10)
  62.  BARPERCENT = PERCENT OF X INCREMENT TO USE FOR BAR WIDTH (DEFAULT = 90%)
  63.  KOLOR = DOS VGA COLOR (DEFAULT = 15 [BRIGHT WHITE])
  64.  HATCHPATTERN = PATTERN TO USE FOR BAR HATCHING
  65. ***********************************************************************
  66.  
  67.  
  68. SUBROUTINE DRAWBARLEGEND(LEGENDKOLOR,LEGENDHATCH,LEGENDTEXT,XLEGEND,
  69.    YLEGEND,BORDERKOLOR,TEXTKOLOR)
  70. ***********************************************************************      
  71. *** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
  72. ***********************************************************************
  73.  LEGENDKOLOR(10) = DOS VGA COLOR FOR EACH LEGEND ITEM (DEFAULT = 15 [BRIGHT WHITE])
  74.  LEGENDHATCH(10) = PATTERN TO USE FOR HATCHING EACH LEGEND ITEM
  75.  LEGENDTEXT(10) = TEXT FOR EACH LEGEND ITEM
  76.  XLEGEND = X POSITION OF LEFT SIDE OF LEGEND (-99 = AUTOCENTER)
  77.  YLEGEND = Y POSITION OF TOP OF LEGEND (-99 = AUTOCENTER)
  78.  BORDERKOLOR = DOS VGA COLOR FOR LEGEND BORDER (DEFAULT = 15 [BRIGHT WHITE]) 
  79.  TEXTKOLOR(10) = DOS VGA COLOR FOR EACH LEGEND ITEM TEXT (DEFAULT = 15 [BRIGHT WHITE])
  80. ***********************************************************************
  81.  
  82.  
  83. INTEGER FUNCTION TEXTSIZE(TEXT)
  84. ***********************************************************************      
  85. *** THIS SUBROUTINE DETERMINES THE STRING SIZE OF THE TEXT WITHIN A LARGER STRING
  86. ***********************************************************************
  87.  
  88.  
  89.  
  90. MICROSOFT(tm) IS A REGISTERED TRADEMARK OF THE MICROSOFT CORPORATION
  91.  
  92. IBM-PC(tm) IS A REGISTERED TRADEMARK OF INTERNATIONAL BUSINESS MACHINES 
  93.  CORPORATION
  94.  
  95.